Chip 1998 September/CHIP Eylül 1998.iso/demolar/lokman/DISK1/_SETUP.3/Group1/istatist.exe/0/RCDATA/TFORMSATIST/TFORMSATIST.txt

Text File | 1998-07-13 | 35KB | 1,256 lines

object FormSatIst: TFormSatIst
  Left = 0
  Top = -1
  Width = 640
  Height = 453
  HorzScrollBar.Range = 1200
  VertScrollBar.Range = 2000
  ActiveControl = MaskEditBAS
  AutoScroll = False
  Caption = '�r�n Sat�� �statistikleri'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Scaled = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object LabelTAR: TLabel
    Left = -1
    Top = -1
    Width = 66
    Height = 14
    Caption = 'Tarih Aral���'
  end
  object RadioGrSIR: TRadioGroup
    Left = 135
    Top = -1
    Width = 234
    Height = 58
    Caption = '�la� S�ralama Kriteri: En B�y�k'
    ItemIndex = 0
    Items.Strings = (
      'Miktarda Sat�lan �la�tan �tibaren'
      'B.Tutarda Sat�lan �la�tan �tibaren')
    TabOrder = 1
  end
  object BitBtn2: TBitBtn
    Left = 378
    Top = 19
    Width = 87
    Height = 25
    Caption = '&Tabloyu A�'
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn2Click
  end
  object MaskEditSON: TMaskEdit
    Left = 62
    Top = 14
    Width = 63
    Height = 22
    AutoSelect = False
    EditMask = '99/99/9999;1;_'
    MaxLength = 10
    TabOrder = 3
    Text = '01.01.1998'
    OnExit = MaskEditBASExit
  end
  object MaskEditBAS: TMaskEdit
    Left = 0
    Top = 14
    Width = 61
    Height = 22
    AutoSelect = False
    EditMask = '99/99/9999;1;_'
    MaxLength = 10
    TabOrder = 4
    Text = '01.01.1997'
    OnExit = MaskEditBASExit
  end
  object PanelGRAF: TPanel
    Left = -2
    Top = 417
    Width = 648
    Height = 840
    BevelInner = bvLowered
    BorderWidth = 3
    Color = clNavy
    TabOrder = 0
    object ScrollBox1: TScrollBox
      Left = 5
      Top = 5
      Width = 638
      Height = 830
      Align = alClient
      Color = clGray
      ParentColor = False
      TabOrder = 0
      object Label2: TLabel
        Left = 564
        Top = 185
        Width = 53
        Height = 56
        Caption = 'Grafik Bilgisinin Yaz�laca�� Txt.Ad�'
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Chart1: TChartFX
        Left = 0
        Top = -1
        Width = 564
        Height = 402
        TabOrder = 0
        ControlData = {
          4B3A00008C2900006000000001000102FDB303FFFFFFFF380032002800280002
          00000000000000080001000000000000000000000000000000000000FFFF00C0
          C0C000C0C0C000FFFFFF00FF1FFF1F0000000000010000000000000F001E0000
          00FFFFFF000000FF00FF000000FF00FF00FFFF000000FFFF00FF00800000FF80
          0080FF00008000FF00FFFF800080FFFF00808040008040800040808000FFFF00
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0008000020080000
          6008000000080000000800000008000000080000000800000008000000000000
          0000000000000000000000000000000000000000000000000000000000280000
          00000054008A10000080685B00AC2A02068464370228FC10022200000084A346
          02DC625802F463160248000000000054000000000000000000D4FC63006E7374
          732E706173EC41EE0272642E7090CF2302FC621E020000000078621E02617300
          000000000060A3180200005A3800000000A411030228000000000054008A1000
          00C08C5700ECEE5800808357000000000000000000E4B0590000000000F8E826
          0228000000000054009A10000074425900000000000000000084845700617331
          2E706173006817130274845700000000000000F03F000000000000F03F020004
          0000000000000000000000000000002440000000000000000000000000000000
          00000000000000A0}
      end
      object BtnYUK: TBitBtn
        Left = 567
        Top = 29
        Width = 41
        Height = 45
        Caption = 'Yukar�'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = BtnYUKClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
          337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
          4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
          44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
          473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
          7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
          33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
          33333333333737F333333333333C943333333333333737333333333333339733
          3333333333337F333333333333339333333333333333733333330000}
        Layout = blGlyphTop
        NumGlyphs = 2
      end
      object BtnYAZ: TBitBtn
        Left = 567
        Top = 140
        Width = 41
        Height = 44
        Caption = 'Yaz�c�'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = BtnYAZClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
          8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
          8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
          8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
          03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
          03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
          33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
          33333337FFFF7733333333300000033333333337777773333333}
        Layout = blGlyphBottom
        NumGlyphs = 2
      end
      object BitBtn6: TBitBtn
        Left = 567
        Top = 85
        Width = 41
        Height = 45
        Caption = 'A�a��'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = BitBtn6Click
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333393333
          333333333337F3333333333333397333333333333337FF333333333333C94333
          3333333333737F333333333333C9473333333333337373F3333333333CC94433
          3333333337F7F7F3333333333CC94473333333333737F73F33333333CCC94443
          333333337F37F37F33333333CCC94447333333337337F373F333333CCCC94444
          33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444
          4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444
          443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333
          444377733337F333777FC33333393333374373333337333333730000}
        Layout = blGlyphBottom
        NumGlyphs = 2
      end
      object ChartMik: TChartFX
        Left = 1
        Top = 409
        Width = 564
        Height = 406
        TabOrder = 4
        ControlData = {
          4B3A0000F62900006000000001000102FDB303FFFFFFFF380032002800280002
          00000000000000080001000000000000000000000000000000000000FFFF00C0
          C0C000C0C0C000FFFFFF00FF1FFF1F0000000000010000000000000F001E0000
          00FFFFFF000000FF00FF000000FF00FF00FFFF000000FFFF00FF00800000FF80
          0080FF00008000FF00FFFF800080FFFF00808040008040800040808000FFFF00
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0008000020080000
          6008000000080000000800000008000000080000000800000008000000000000
          00000000000000000000000000000000000000000000000000000000002C0000
          00000054008A10000080685B00AC2A02060000000000000000C012580010FE37
          02EE0000008C83570038345B0038000000000054000000000000000000D4FC63
          006E7374732E706173EC41EE0200000000249242022E70617314FC1002E0F257
          0000000000B0FC570024000000000054008A100000C08C570080000000F0605A
          00A4E327020000000038A85B009C7D69042C000000000054009A100000744259
          0074572D027831580000000000BC7C2702AC92CD011C08580000000000B4C25A
          00000000000000F03F000000000000F03F020004000000000000000000000000
          0000002440000000000000000000000000000000000000000000000000000000
          1CFAE201}
      end
      object BtnTXT: TBitBtn
        Left = 567
        Top = 267
        Width = 41
        Height = 45
        Caption = '.txt Yaz'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnClick = BtnTXTClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
          C8807FF7777777777FF700000000000000007777777777777777333333333333
          33333333333333333333333333333333333333333333333333330000}
        Layout = blGlyphBottom
        NumGlyphs = 2
      end
      object EditFile: TEdit
        Left = 565
        Top = 242
        Width = 57
        Height = 22
        TabOrder = 6
        Text = 'istilc.txt'
      end
      object BitBtn1: TBitBtn
        Left = 570
        Top = 461
        Width = 41
        Height = 45
        Caption = 'Yukar�'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnClick = BitBtn1Click
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
          337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
          4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
          44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
          473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
          7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
          33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
          33333333333737F333333333333C943333333333333737333333333333339733
          3333333333337F333333333333339333333333333333733333330000}
        Layout = blGlyphTop
        NumGlyphs = 2
      end
    end
  end
  object Panel1: TPanel
    Left = 8
    Top = 1264
    Width = 761
    Height = 322
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel1'
    Color = 8454143
    TabOrder = 5
    object QRBand1: TQRBand
      Left = 6
      Top = 6
      Width = 749
      Height = 63
      Align = alTop
      BandType = rbTitle
      Color = clWhite
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Ruler = qrrCmHV
      object QRLabelBaslik: TQRLabel
        Left = 214
        Top = 15
        Width = 78
        Height = 14
        Alignment = taCenter
        Caption = 'QRLabelBaslik'
        AlignToBand = True
      end
      object QRSysData2: TQRSysData
        Left = 553
        Top = -1
        Width = 89
        Height = 17
        AlignToBand = False
        Data = qrsPageNumber
        Text = 'Sayfa '
      end
      object QRLabel3: TQRLabel
        Left = 11
        Top = 43
        Width = 24
        Height = 14
        Caption = 'S.No'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel2: TQRLabel
        Left = 44
        Top = 43
        Width = 39
        Height = 14
        Caption = '�la� Ad�'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel4: TQRLabel
        Left = 254
        Top = 43
        Width = 61
        Height = 14
        Caption = 'T.Kutu Mik.'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel5: TQRLabel
        Left = 342
        Top = 43
        Width = 68
        Height = 14
        Caption = 'T.Br�t Tutar�'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel6: TQRLabel
        Left = 457
        Top = 43
        Width = 40
        Height = 14
        Caption = 'Ort Mik'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRShape2: TQRShape
        Left = 3
        Top = 58
        width = 646
        Height = 4
        Shape = qrsHorLine
      end
      object QRLabel1: TQRLabel
        Left = 513
        Top = 41
        Width = 42
        Height = 14
        Caption = 'S.Mik.%'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel7: TQRLabel
        Left = 572
        Top = 41
        Width = 48
        Height = 14
        Caption = 'S.Tutar%'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object QRBand2: TQRBand
      Left = 6
      Top = 69
      Width = 749
      Height = 20
      Align = alTop
      BandType = rbDetail
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      ParentFont = False
      Ruler = qrrCmH
      object QRDBText1: TQRDBText
        Left = 4
        Top = 0
        Width = 33
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'SNO'
      end
      object QRDBText3: TQRDBText
        Left = 267
        Top = 0
        Width = 48
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'TOPMIK'
      end
      object QRDBText4: TQRDBText
        Left = 331
        Top = 0
        Width = 118
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'TUTAR'
      end
      object QRDBText5: TQRDBText
        Left = 464
        Top = 0
        Width = 38
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'ORTMIK'
      end
      object QRDBText2: TQRDBText
        Left = 44
        Top = 0
        Width = 203
        Height = 17
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'ILACNO'
      end
      object QRDBText6: TQRDBText
        Left = 515
        Top = 0
        Width = 38
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'YUZDEMIK'
      end
      object QRDBText7: TQRDBText
        Left = 572
        Top = 0
        Width = 38
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'YUZDETUT'
      end
    end
    object QRGroupFooter: TQRBand
      Left = 6
      Top = 89
      Width = 749
      Height = 17
      Align = alTop
      BandType = rbGroupFooter
      Color = clWhite
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Ruler = qrrNone
    end
    object QRBand3: TQRBand
      Left = 6
      Top = 106
      Width = 749
      Height = 196
      Align = alTop
      BandType = rbSummary
      Color = clWhite
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Ruler = qrrNone
      object QRShape6: TQRShape
        Left = 118
        Top = 34
        width = 409
        Height = 134
        Shape = qrsRectangle
      end
      object QRLabel16: TQRLabel
        Left = 202
        Top = 72
        Width = 109
        Height = 14
        Caption = '�la�lar�n Br�t Tutar� :'
        AlignToBand = False
      end
      object QRLabel19: TQRLabel
        Left = 160
        Top = 52
        Width = 151
        Height = 14
        Caption = 'Toplam �la� Kutusu Miktar� :'
        AlignToBand = False
      end
      object QRDBText15: TQRDBText
        Left = 329
        Top = 52
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'TOPMIK'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText16: TQRDBText
        Left = 329
        Top = 73
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'TOPTUT'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText19: TQRDBText
        Left = 329
        Top = 93
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'ORTMIK'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText20: TQRDBText
        Left = 329
        Top = 114
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'MAKSTOPTUT'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText21: TQRDBText
        Left = 329
        Top = 134
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'MAKSMIKTAR'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRLabel20: TQRLabel
        Left = 152
        Top = 93
        Width = 159
        Height = 14
        Caption = 'Ortalama �la� Kutusu Miktar� :'
        AlignToBand = False
      end
      object QRLabel21: TQRLabel
        Left = 180
        Top = 114
        Width = 129
        Height = 14
        Alignment = taRightJustify
        Caption = 'Maksimum Br�t Tutar� :'
        AlignToBand = False
      end
      object QRLabel22: TQRLabel
        Left = 174
        Top = 134
        Width = 137
        Height = 14
        Caption = 'Maksimum Kutu Miktar� :'
        AlignToBand = False
      end
      object QRLabel23: TQRLabel
        Left = 256
        Top = 10
        Width = 148
        Height = 14
        Caption = 'TOPLAMLAR VE SONU�LAR'
        AlignToBand = False
      end
    end
  end
  object PanelTAB: TPanel
    Left = 0
    Top = 60
    Width = 618
    Height = 346
    Color = clSilver
    TabOrder = 6
    Visible = False
    object Label1: TLabel
      Left = 2
      Top = 83
      Width = 591
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Caption = 'Sat��a G�re ila� Tablosu'
      Color = clRed
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label3: TLabel
      Left = 4
      Top = 272
      Width = 557
      Height = 14
      Alignment = taCenter
      AutoSize = False
      Caption = 'Genel Toplam'
      Color = clBlue
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object RadioGrafik: TRadioGroup
      Left = 5
      Top = 1
      Width = 499
      Height = 79
      Caption = '�izilecek Grafik'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        '�la� Ad� Kutu Miktar� veTutar�'
        '�la�lar�n�n G�nl�k Tutar K.Miktar�'
        '�la�lar�n�n  Ayl�k Tutar ve Miktar'
        '�la�lar�n�n Y�ll�k Tutar K.Miktar�'
        '��aretli �lac�n G�nl�k �la� Miktar� ve Tutar�'
        '��aretli �lac�n Ayl�k �la� Miktar� ve  Tutar�'
        '��aretli �lac�n Y�ll�k �la� Miktar� ve Tutar�')
      TabOrder = 0
    end
    object BtnGRAFCIZ: TBitBtn
      Left = 509
      Top = 9
      Width = 95
      Height = 24
      Caption = '&Grafi�i �iz'
      TabOrder = 1
      OnClick = BtnGRAFCIZClick
    end
    object DBGrid1: TDBGrid
      Left = 4
      Top = 97
      Width = 591
      Height = 174
      DataSource = DataSource1
      TabOrder = 2
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
    end
    object BitBtn7: TBitBtn
      Left = 509
      Top = 53
      Width = 95
      Height = 25
      Caption = 'Tabloyu &Yazd�r'
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = BitBtn7Click
    end
    object DBGrid3: TDBGrid
      Left = 3
      Top = 287
      Width = 558
      Height = 55
      DataSource = DataSTop
      TabOrder = 4
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
    end
  end
  object BitBtn4: TBitBtn
    Left = 538
    Top = 32
    Width = 71
    Height = 25
    TabOrder = 7
    Kind = bkClose
  end
  object BtnHelp: TBitBtn
    Left = 538
    Top = 3
    Width = 71
    Height = 25
    HelpContext = 894
    TabOrder = 8
    Kind = bkHelp
  end
  object QAna: TQuery
    BeforeOpen = QAnaBeforeOpen
    AfterClose = QAnaAfterClose
    OnCalcFields = QAnaCalcFields
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'ISTATIKS.ILACNO,'
      'SUM(ISTATIKS.MIKTAR) AS TOPMIK,'
      'SUM(ISTATIKS.MIKTAR*ISTATIKS.FIYAT) AS TUTAR,'
      'AVG(ISTATIKS.MIKTAR) AS ORTMIK'
      'FROM ISTATIKS'
      'GROUP BY ISTATIKS.ILACNO'
      'ORDER BY TOPMIK DESC')
    Left = 16
    Top = 184
    object QAnaSNO: TIntegerField
      Calculated = True
      DisplayLabel = 'S.No'
      DisplayWidth = 4
      FieldName = 'SNO'
    end
    object QAnaILACNO: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = '�r�n Ad�'
      DisplayWidth = 36
      FieldName = 'ILACNO'
      OnGetText = QAnaILACNOGetText
    end
    object QAnaTOPMIK: TFloatField
      DisplayLabel = 'T.Mik'
      DisplayWidth = 4
      FieldName = 'TOPMIK'
    end
    object QAnaORTMIK: TFloatField
      DisplayLabel = 'Ort.Mik.'
      DisplayWidth = 6
      FieldName = 'ORTMIK'
      DisplayFormat = '#,#'
    end
    object QAnaTUTAR: TCurrencyField
      DisplayLabel = 'Br�t Tutar'
      DisplayWidth = 21
      FieldName = 'TUTAR'
    end
    object QAnaYUZDEMIK: TFloatField
      Calculated = True
      DisplayLabel = 'Mik.%'
      DisplayWidth = 7
      FieldName = 'YUZDEMIK'
      DisplayFormat = '%0.00'
    end
    object QAnaYUZDETUT: TFloatField
      Calculated = True
      DisplayLabel = 'Tutar%'
      DisplayWidth = 7
      FieldName = 'YUZDETUT'
      DisplayFormat = '%0.00'
    end
  end
  object DataSource1: TDataSource
    DataSet = QAna
    Left = 45
    Top = 181
  end
  object QToplam: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'SUM(ISTATIKS.MIKTAR) AS TOPMIK,'
      'SUM(ISTATIKS.MIKTAR*ISTATIKS.FIYAT) AS TOPTUT,'
      'COUNT(DISTINCT ISTATIKS.ILACNO) AS FARKILAC,'
      'MAX(ISTATIKS.MIKTAR)  AS MAKSMIKTAR,'
      'MAX(ISTATIKS.MIKTAR*ISTATIKS.FIYAT) AS MAKSTOPTUT,'
      'AVG(ISTATIKS.MIKTAR) AS ORTMIK'
      'FROM ISTATIKS')
    Left = 16
    Top = 347
    object QToplamTOPMIK: TFloatField
      DisplayLabel = 'T.Kutu Mik.'
      DisplayWidth = 6
      FieldName = 'TOPMIK'
    end
    object QToplamTOPTUT: TCurrencyField
      DisplayLabel = 'Toplam Br�t Tutar'
      DisplayWidth = 21
      FieldName = 'TOPTUT'
    end
    object QToplamFARKILAC: TIntegerField
      DisplayLabel = 'Farkl� �.Say�s�'
      FieldName = 'FARKILAC'
    end
    object QToplamMAKSMIKTAR: TIntegerField
      DisplayLabel = 'Maks.Sat.Mik'
      FieldName = 'MAKSMIKTAR'
    end
    object QToplamMAKSTOPTUT: TCurrencyField
      DisplayLabel = 'Maks.Br�t Tutar'
      DisplayWidth = 18
      FieldName = 'MAKSTOPTUT'
    end
    object QToplamORTMIK: TFloatField
      DisplayLabel = 'Ort.K.Mik.'
      DisplayWidth = 6
      FieldName = 'ORTMIK'
      DisplayFormat = '#,#'
    end
  end
  object UrAd: TTable
    DatabaseName = 'ECZ'
    TableName = 'Urun.DB'
    Left = 17
    Top = 219
    object UrAdILACNO: TAutoIncField
      Alignment = taLeftJustify
      FieldName = 'ILACNO'
    end
    object UrAdILACKOD: TStringField
      FieldName = 'ILACKOD'
      Size = 13
    end
    object UrAdILACAD: TStringField
      FieldName = 'ILACAD'
      Size = 36
    end
  end
  object DataSTop: TDataSource
    DataSet = QToplam
    Left = 40
    Top = 351
  end
  object QGunluk: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'ISTATIKS.YIL,ISTATIKS.AY,ISTATIKS.GUN,'
      'SUM(ISTATIKS.MIKTAR) AS TOPMIK,'
      'SUM(ISTATIKS.MIKTAR*ISTATIKS.FIYAT) AS TOPTUT,'
      'COUNT(DISTINCT ISTATIKS.ILACNO) AS FARKLIILAC'
      'FROM ISTATIKS'
      'GROUP BY ISTATIKS.YIL,ISTATIKS.AY,ISTATIKS.GUN'
      'ORDER BY TOPMIK DESC')
    Left = 189
    Top = 33
    object QGunlukYIL: TFloatField
      FieldName = 'YIL'
    end
    object QGunlukAY: TFloatField
      FieldName = 'AY'
    end
    object QGunlukGUN: TFloatField
      FieldName = 'GUN'
    end
    object QGunlukTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QGunlukTOPTUT: TCurrencyField
      FieldName = 'TOPTUT'
    end
  end
  object QIstaSat: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {
      0100020006626173547268000B08000000EA1B0FA1CC42000106736F6E547268
      000B08000000446069A8CC420001}
    SQL.Strings = (
      'SELECT'
      'SATIS.ILACNO,'
      'SATIS.SATISNO,'
      'SATIS.MIKTAR,'
      'SATIS.FIYAT,'
      'SATIS.SATARIH,'
      'EXTRACT(DAY FROM SATIS.SATARIH) AS GUN,'
      'EXTRACT(MONTH FROM SATIS.SATARIH) AS AY,'
      'EXTRACT(YEAR FROM SATIS.SATARIH) AS YIL'
      'FROM SATIS'
      'WHERE'
      '(SATIS.SATARIH>=:basTrh) AND'
      '(SATIS.SATARIH<=:sonTrh)'
      'ORDER BY SATIS.SATARIH')
    Left = 152
    object QIstaSatILACNO: TIntegerField
      FieldName = 'ILACNO'
    end
    object QIstaSatSATISNO: TFloatField
      FieldName = 'SATISNO'
    end
    object QIstaSatMIKTAR: TIntegerField
      FieldName = 'MIKTAR'
    end
    object QIstaSatFIYAT: TCurrencyField
      FieldName = 'FIYAT'
    end
    object QIstaSatSATARIH: TDateTimeField
      FieldName = 'SATARIH'
    end
    object QIstaSatGUN: TFloatField
      FieldName = 'GUN'
    end
    object QIstaSatAY: TFloatField
      FieldName = 'AY'
    end
    object QIstaSatYIL: TFloatField
      FieldName = 'YIL'
    end
  end
  object BatchMove1: TBatchMove
    Destination = istSatTab
    Mode = batCopy
    Source = QIstaSat
    Left = 184
  end
  object istSatTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'istatikS.db'
    Left = 216
    Top = 8
  end
  object QAylik: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'ISTATIKS.YIL,ISTATIKS.AY,'
      'SUM(ISTATIKS.MIKTAR) AS TOPMIK,'
      'SUM(ISTATIKS.MIKTAR*ISTATIKS.FIYAT) AS TOPTUT,'
      'COUNT(DISTINCT ISTATIKS.ILACNO) AS FARKLIILAC'
      'FROM ISTATIKS'
      'GROUP BY ISTATIKS.YIL,ISTATIKS.AY'
      'ORDER BY ISTATIKS.TOPTUT DESC')
    Left = 109
    Top = 57
    object QAylikYIL: TFloatField
      FieldName = 'YIL'
    end
    object QAylikAY: TFloatField
      FieldName = 'AY'
    end
    object QAylikTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QAylikTOPTUT: TCurrencyField
      FieldName = 'TOPTUT'
    end
  end
  object QYillik: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'ISTATIKS.YIL,'
      'SUM(ISTATIKS.MIKTAR) AS TOPMIK,'
      'SUM(ISTATIKS.MIKTAR*ISTATIKS.FIYAT) AS TOPTUT,'
      'COUNT(DISTINCT ISTATIKS.ILACNO) AS FARKLIILAC'
      'FROM ISTATIKS'
      'GROUP BY ISTATIKS.YIL'
      'ORDER BY ISTATIKS.TOPTUT DESC')
    Left = 109
    Top = 89
    object QYillikYIL: TFloatField
      FieldName = 'YIL'
    end
    object QYillikTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QYillikTOPTUT: TCurrencyField
      FieldName = 'TOPTUT'
    end
  end
  object QhstIMikAylik: TQuery
    DatabaseName = 'ECZ'
    DataSource = DataSource1
    Params.Data = {0100010006494C41434E4F00030400000000000100}
    SQL.Strings = (
      'SELECT'
      'ISTATIKS.YIL,ISTATIKS.AY,'
      'SUM(ISTATIKS.MIKTAR) AS TOPMIK,'
      'SUM(ISTATIKS.MIKTAR*ISTATIKS.FIYAT) AS TUTAR,'
      'COUNT(DISTINCT ISTATIKS.ILACNO) AS FARKLIILAC'
      'FROM ISTATIKS'
      'WHERE '
      'ISTATIKS.ILACNO=:ILACNO'
      'GROUP BY ISTATIKS.YIL,ISTATIKS.AY'
      'ORDER BY TOPMIK DESC')
    Left = 293
    Top = 41
    object QhstIMikAylikYIL: TFloatField
      FieldName = 'YIL'
    end
    object QhstIMikAylikAY: TFloatField
      FieldName = 'AY'
    end
    object QhstIMikAylikTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QhstIMikAylikTUTAR: TCurrencyField
      FieldName = 'TUTAR'
    end
  end
  object PrintDialog1: TPrintDialog
    Left = 525
    Top = 65508
  end
  object QhstIMikYillik: TQuery
    DatabaseName = 'ECZ'
    DataSource = DataSource1
    Params.Data = {0100010006494C41434E4F00030400000000000100}
    SQL.Strings = (
      'SELECT'
      'ISTATIKS.YIL,'
      'SUM(ISTATIKS.MIKTAR) AS TOPMIK,'
      'SUM(ISTATIKS.MIKTAR*ISTATIKS.FIYAT) AS TUTAR,'
      'COUNT(DISTINCT ISTATIKS.ILACNO) AS FARKLIILAC'
      'FROM ISTATIKS'
      'WHERE '
      'ISTATIKS.ILACNO=:ILACNO'
      'GROUP BY ISTATIKS.YIL'
      'ORDER BY TOPMIK DESC')
    Left = 405
    Top = 65
    object QhstIMikYillikYIL: TFloatField
      FieldName = 'YIL'
    end
    object QhstIMikYillikTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QhstIMikYillikTUTAR: TCurrencyField
      FieldName = 'TUTAR'
    end
  end
  object BatchMove2: TBatchMove
    Mode = batCopy
    Source = QAylik
    Left = 248
    Top = 136
  end
  object DS_QYillik: TDataSource
    DataSet = QYillik
    Left = 136
    Top = 80
  end
  object DS_QAylik: TDataSource
    DataSet = QAylik
    Left = 144
    Top = 48
  end
  object DataSource5: TDataSource
    DataSet = QGunluk
    Left = 216
    Top = 32
  end
  object DS_QhstIMikAylik: TDataSource
    DataSet = QhstIMikAylik
    Left = 432
    Top = 80
  end
  object DataSource7: TDataSource
    DataSet = QhstIMikYillik
    Left = 392
    Top = 96
  end
  object QuickReport1: TQuickReport
    DataSource = DataSource1
    ColumnMarginInches = 0
    ColumnMarginMM = 0
    Columns = 1
    DisplayPrintDialog = False
    LeftMarginInches = 0
    LeftMarginMM = 0
    Orientation = poPortrait
    PageFrame.DrawTop = False
    PageFrame.DrawBottom = False
    PageFrame.DrawLeft = False
    PageFrame.DrawRight = False
    PaperLength = 0
    PaperSize = qrpDefault
    PaperWidth = 0
    RestartData = True
    SQLCompatible = False
    TitleBeforeHeader = False
    Left = 248
    Top = 136
  end
  object FontDialog1: TFontDialog
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    Device = fdPrinter
    MinFontSize = 0
    MaxFontSize = 0
    Left = 453
    Top = 208
  end
  object QhstIMikGunluk: TQuery
    DatabaseName = 'ECZ'
    DataSource = DataSource1
    Params.Data = {0100010006494C41434E4F00030400000000000100}
    SQL.Strings = (
      'SELECT'
      'ISTATIKS.YIL,ISTATIKS.AY,ISTATIKS.GUN,'
      'SUM(ISTATIKS.MIKTAR) AS TOPMIK,'
      'SUM(ISTATIKS.MIKTAR*ISTATIKS.FIYAT) AS TUTAR,'
      'COUNT(DISTINCT ISTATIKS.ILACNO) AS FARKLIILAC'
      'FROM ISTATIKS'
      'WHERE '
      'ISTATIKS.ILACNO=:ILACNO'
      'GROUP BY ISTATIKS.YIL,ISTATIKS.AY,ISTATIKS.GUN'
      'ORDER BY TOPMIK DESC')
    Left = 397
    Top = 57
    object QhstIMikGunlukYIL: TFloatField
      FieldName = 'YIL'
    end
    object QhstIMikGunlukAY: TFloatField
      FieldName = 'AY'
    end
    object QhstIMikGunlukGUN: TFloatField
      FieldName = 'GUN'
    end
    object QhstIMikGunlukTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QhstIMikGunlukTUTAR: TCurrencyField
      FieldName = 'TUTAR'
    end
  end
end